on int 1
    {
    ss=reg ss
    sp=reg sp+34
    locate 0,71
    printh ss[sp];":";ss[sp-2];
    }
stop resident
